home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / program / 355 / source / modre-ex / m2demo1.mod < prev    next >
Text File  |  1990-02-02  |  2KB  |  73 lines
  1. MODULE M2demo;
  2. FROM SYSTEM IMPORT ADR;
  3. FROM GEMAESbase IMPORT Object,TEdInfo,FormStart,FormFinish,RTree,Arrow;
  4. FROM AESApplications IMPORT ApplInitialise,ApplExit;
  5. FROM AESForms IMPORT FormDialogue,FormDo,FormCenter;
  6. FROM AESObjects IMPORT ObjectDraw;
  7. FROM AESGraphics IMPORT GrafMouse;
  8. FROM AESResources IMPORT ResourceLoad,ResourceGetAddr;
  9. FROM Strings IMPORT Assign;
  10. CONST
  11.       DEMO = 0 ;
  12.       DATA = 3 ;
  13.       INOK = 4 ;
  14.    OUTDATA = 1 ;
  15.     RESULT = 1 ;
  16.      OUTOK = 2 ;
  17.  
  18. TYPE
  19.     OP=POINTER TO ARRAY [0..100] OF Object;
  20.     TP=POINTER TO TEdInfo;
  21.     CP=POINTER TO ARRAY [0..100] OF CHAR;
  22. VAR
  23.    JUNK:INTEGER;
  24.    str:ARRAY [0..100] OF CHAR;
  25.    sp:CP;
  26.    data,outtree:OP;
  27.    x,y,w,h:INTEGER;
  28.  
  29. PROCEDURE gettext(TREE:OP;index:INTEGER;VAR ans:CP);
  30. VAR
  31.    ted:TP;
  32.    ob:Object;
  33.    CH:CP;
  34.  
  35. BEGIN
  36.      ob:=TREE^[index];
  37.      ted:=ob.spec;
  38.      CH:=ted^.ptext;
  39.      Assign(ans^,CH^);
  40. END gettext;
  41.  
  42. PROCEDURE puttext(tree:OP;index:INTEGER;str:CP);
  43. VAR
  44.     ted:TP;
  45.     CH:CP;
  46. BEGIN
  47.      ted:=tree^[index].spec;
  48.      CH:=ted^.ptext;
  49.      Assign(CH^,str^)
  50. END puttext;
  51.  
  52. BEGIN
  53.         JUNK:=ApplInitialise();
  54.         ResourceLoad("B:\M2DEMO.RSC");
  55.         ResourceGetAddr(RTree,DEMO,data);
  56.         GrafMouse(Arrow,0);
  57.         ResourceGetAddr(RTree,OUTDATA,outtree);
  58.         FormCenter(data,x,y,w,h);
  59.         FormDialogue(FormStart,0,0,0,0,x,y,w,h);
  60.         ObjectDraw(data,0,4,x,y,w,h);
  61.         JUNK:=FormDo(data,DATA);
  62.         sp:=ADR(str);
  63.         gettext(data,DATA,sp);
  64.         FormDialogue(FormFinish,0,0,0,0,x,y,w,h);
  65.         FormCenter(outtree,x,y,w,h);
  66.         FormDialogue(FormStart,0,0,0,0,x,y,w,h);
  67.         puttext(outtree,OUTDATA,sp);
  68.         ObjectDraw(outtree,0,4,x,y,w,h);
  69.         JUNK:=FormDo(outtree,0);
  70.         FormDialogue(FormFinish,0,0,0,0,x,y,w,h);
  71.         ApplExit;
  72. END M2demo.
  73.